PRO/FILE 2068 + OS-64 


THESE NOTES ARE INTENDED AS A SUPPLEMENT TO THE PROFILE MANUAL. 


I have rewritten PRO/FILE 2068 to operate with the ZEBRA 
OS-64 module to provide a 64 column by 15 line data-file and 
display. Portions of the BASIC program were changed and the 
machine code had to be moved (and changed) to accomodate the 
changes in the operating system. I 

There are only about 500 bytes left unused in ram. 


FILE SIZE: 


I have used 22760 bytes for d$ (maximum file size) because 
this rewrite was also intended for use with the АҺ) Microdrive 
(which makes a smaller file size practical) and, at this size, 
I can get 4 complete files on a 62 foot wafer. 

I like to SAVE a standard size file so that changes will not 
cause a new SAVE to over-write part of the following file on a 
wafer. ` 


ADDITIONS: 


I have added the following routines from the PRO/FILE manual 
{pps 97-107); 
. The keypress "tick" 

keypress non-auto-repeat 

lprint from edit (copy display) 

autosearch improvement 

auto-sort (by 32 chars) 

block purge. 


I have also added a routine to allow 2 files to be merged. 


CHANGES: 


The main menu has been completely rearranged and several new 
functions added. 

The data-entry/edit menu has been rearranged and all of the 
functions now appear on a single menu. Upper/lower case ana 
insert/over conditions now appear on the menu. The line and 
column positions of the cursor are also displayed an the menu 
along with the LPRINT format. 

"STOP" to exit the data-entry mode and "STEP" to exit the 
edit mode are displayed as a reminder. The program is supposed 
to differentiate between them so BUT BE CAREFUL. I have 
experiencec random problems using STOP from edit. 

Different key-click sounds are provided for data-entry and 
cantral functions. 
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LINE CHANGES AND ADDITIONS: 


Many of the new line numbers and routines will not match the 
original program but they are still obvious enough that you can 
sort them out. These are the major changes. 


Lines 20 - 118: main menu £ select 
Lines 1050 — 2000: data review menu 
Lines 5004 - 5018: data enter/edit menu 
Lines 5500 - 5510: data "LOAD" 
Lines 5600 - 5630: data "SAVE" 
Lines 5650 - 5680: "MERGE" two files 
Lines 7200 - 7240: "LPRINT" 
Line 9800: "CHANGE FILENAME" 
Line 9994: CLEAR 62627 and LOAD mc. 
Line 9995: DIM (22760) and certain standard values are put into 
š variables to save ram space. 
Line 9996: Housekeeping variables are initialized including the 
blank lines and "zzz"s that are necessary for 
sorting and printing operations. GOSUB 5620 is to 
insert the "SEARCH IS COMPLETES" message in the 
first 20 bytes of d$ (this is also used by LOAD. 
Line 9997: РОКЕ 24201,0 (A&J drive O) | 
POKE 65510,0 (turn off line feed, 05—64) 
POKE 65523,185 (select A&J interface, OS-64) 
POKE 65525,72 (LPRINT # of chars per line, 
plus # of chars in margin, OS-64 
RANDOMIZE USR 15623 (initialize # of chars, OS-64) 
Line 9998: initialize у% % f$, start (GO TO 1) 
Line 9999: SAVE & VERIFY for backup 


You may need to make some changes in Line 9997 to match your 
OS-64 (they’r not all the same), your interface, and your 
printer. 


MACHINE CODE: 


The PRO FILE MC now starts at 62628 (down 861 bytes) because 
the operating system is moved around for the 64 column mode and 
portions of it now occupy the top of ram. 

You will need HOT-Z, or some other assembler /disassembler 
that will allow you to relocate blocks of code. Otherwise you 
will have to go thru the МС and. change all of the GOTOs & JPs by 
hand. 

It was only necessary to change 3 bytes to accomodate the 64 
column mode. Addresses are the NEW locations. 


F502 = 40 (40 hex = 64 spaces) 
F463 = 40 (set count to 64) 
F4c4 = 41 (# of columns + 1) 
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"SAVE" and "LOAD": 


Both SAVE and LOAD will automatically put the computer in 
CAPS mode (POKE 23658,8). 


All data SAVE/LOAD operations are set up for А%Ч drive O 
because I always keep programs in drive 1 and files in drive O. 


The dimensioned data file (d$), as the first variable 
declared, is always located at (PEEK 23627+256tPEEK 23628). The 
first 6 bytes are header information, therefore the actual data 
starts at byte 7. Line 5630 creates variable "loc" which is the 
beginning of the data. loc=6+ (PEEK 23627+256*%PEEK 23628). 


"SAVE"; Line 5600; will use the "FILENAME” (f$) that appears оп 
the main menu. The routine will also ask for a file number. 

The message "SEARCH IS COMPLETE" will be removed from d$ and 
the value of variable "p" (total bytes used) will be inserted in 
the, now unused, 20 bytes of the header. | 

The program will automatically VERIFY. 


"LOAD"; Line 5500; will ask "HAS CURRENT FILE BEEN SAVED?” (as 
a safety check to prevent losing a file). "М" will return you 
to the main menu, "Y" will ask for the filename to be loaded. 
Variable "p" is extracted from the new d$ and the message 
"SEARCH IS COMPLETE?t" is replaced in the first 20 bytes. 


"LPRINT": 


Тһе OS-64 operating system does not support the 2040 
printer. However, it does provide а centronics driver for a 
large printer (interface selectable). Therefore, the driver 
code used in the manual is not necessary. 


The total number of characters per line are set in Line 
9997. However, since some printers do not have a "left margin” 
control - Line 7220 contains the necessary number of blank 
spaces to create a left margin. This means that line 9997 (POKE 
65525,72) is the number of characters to be printed PLUS the 
number of characters for the margin. 


If you want a blank space between each individual file 
printout, then change line 7225 to “NEXT x: LPRINT". 


EXAMPLE; I have indexed the club newsletter library. The 
first line is always the newsletter name and date with content 
notes on the other lines. І get rid of the LPRINT when I want 
a list of just the newsletter names & dates. I use the LPRINT 
when I want a printout of the entire file, with a space between 
each file. 
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COMBINING FILES (MERGE): 


PRO/FILE allows deleting blocks of files so that large files 
may be split. I have added a routine that allows two files to 
be combined. As written, it requires 2 microdrives. 

EDIT THE TWO FILES TO THE SIZE AND DATA THAT YOU WANT. 
Remembered that the total number of bytes in the two files MUST 
BE LESS than the maximum file size (22760 bytes minus 20, or 
11375 bytes each). 

Place the wafer containing the regular files in drive 0, 
place a formatted wafer (20-35 ft) in drive 1. 

When you select "MERGE", the program will prompt for the 
first filename. It will then LOAD that file (from drive 0), 
place the actual file size in variable "pi" (pi=p-20), place the 
filename іп "h$", and then SAVE tand VERIFY) the file tat its 
actual file size minus the 20 byte header) to drive i. See line 
5660, SAVE "ai,"+ f$ CODE tlac+20),pi. 

The program will then prompt for the next filename (to be 
LOADed from drive O). This will LOAD normally. 

The first file will then automatically be reLOADed (using 
the name іп "h$), AND using the new value in variable "р" to 
determine where the file should go in d$ so that it is 
immediately behind the resident file. Line 5680, LOAD “a"+h$ 
CODE (loc*p*1) 

The value in variable "pi" is then added to the value in 
variable "p" to give the size of the combined file. 

It is a simple matter to rewrite tbe program if you only 
have one microdrive. You will need to put pauses (and reminder 
messages) in to allow time to swap wafers. 


WARNING: It has been my experience that no two microdrives 
run at the same speed. Therefore, if you have saved several 
files using the slower drive and then over-write one of those 
files using the faster drive, it will also over-write the 
beginning of the following file. 
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- 0001. "КЕМ %Ж FRO/64 xt MODIFIED OCT, 1987 BY FRANK HOLLAND 


0005 LET a=to: 
LET x$z"" 


0004 RANDOMIZE p: 
POKE VAL "63174", PEEK VAL "23670": 
FOKE VAL "63175", FEEK VAL "23671": 
RANDOMIZE USR VAL "63407" 


0005 LET y=to: 
DIM еФ(%15, t64): 
CLS 


OQS If PEEK VAL "62750" = to 
AND y$ <> "D" 
AND y$ <> " STEP " 
THEN GO SUB VAL "7300" 


0010 IF у% = "D" 
OR y$ = " STEP " 
THEN GO TO t119 


0020 CLS: 
PRINT AT ti, t15; "XXXXXX* PRO/FILE 2068 + OS-64 XXxxxxx" 


0040 PRINT AT t3, t3; "FILE : "3 #% 
"FREE : "3 LEN d$ - p; "bytes"? 
TAB t3; "ORDER : "; g 
"FORMAT: "; as 


ОО50 PRINT АТ VAL "7", +10; "XX» LIST ALL FILES"? 
TAB t10; "<E>nter NEW FILE"? 
TAB %10; "<Stave FILES (drive O)"* 
TAB t10; "<L>cad FILES (drive О)" 
TAB tiO; "<M>erge FILES"? 
TAB +10; "<A>utosearch (& lprint)"' 
TAB t10; "<Feormat LPRINT"? 
TAB t10; "«C?hange FILENAME (7 chars.)"" 
TAB tiO; "<P>urge ALL FILES" 


0051 РКІМТ AT VAL "18", t2: "SEARCH COMMAND\# (line 1-9) to sort files."* 
ТАВ t2; "SEARCH COMMAND\D to delete series of files." 
TAB t2; "Separate multi-word command words with token ""AND""," 


0055 PLOT to, to: 
DRAW +255, +0: 
DRAW tO, VAL "175": 
DRAW -t255, to: 
DRAW tO, VAL "-175" 


0100 РОКЕ VAL "23658", t8: 
INPUT "SEARCH COMMAND? "; x$ 


0101 IF x$ = "E" 
THEN GO TO VAL "5000" 


2 IF x$ = "S" 
THEN GO SUB VAL "5600": 
GO TO ti 
5 IF x$ = "L" 
THEN GO SUB VAL "5500"; 
GO TO ti 
4 IF x$ = "A" 
THEN GO TO VAL "5200" 
5 IF x$ = "F" 
THEN GO SUB VAL "6500": 
GO TO t20 
ad 
зе IF w$ = "C" 
THEN GO TO VAL "9800" 
37 IF x$ = "P" 
THEN GO TO VAL "9650" 
28 IF x$ = "M" 
THEN GO SUB VAL "S650": 
GO TO ti 
15 IF x$ = "" 
THEN GO TO ti 
16 IF x$(LEN x$) = " AND " 
OR LEN x$ > t64 
THEN GO TO %10 
18 CLS 
19 LET x$ = x$: 
LET x$ = x$ 
20 RAMDOMIZE USR VAL "63179" 
30 LET j$ = CHR$ PEEK VAL "23670" 
40 IF a = tO 
THEN IF CODE j$ > VAL "48" 
AND CODE j$ < VAL "S8" 
THEN LET s = VAL j$: 
LET a = ti: 
LET y = tO: 
LET y$ = " STEP ": 
GO SUB VAL "7300": 
LET p$ = b$: 
LET q$ = 5% 
50 LET b = USR VAL "63240" 
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0206 


1000 


1049 


1050 


1055 


1056 


1060 


1070 


1075 


‘IF jẹ = "D" 


THEN LET a =ti: 
LET s =to: 
LET y$ = "D": 
LET y = to 


FRINT AT %0,%0;: 
DIM e$(ti5, t64): 
LET e$(t1) = "": 
IF USR VAL "62714" THEN 


IF e$(ti, TO t18) = d$(t2 TO t19) 
AND b <> p 
THEN CLS: 
GO TO VAL "150" 


IF a 
THEN GO TO VAL "7000" 


IF a 
THEN GO SUB VAL "7300": 
GO SUB VAL "7310": 
GO SUE VAL "7300" 


IF e$(ti, TO t18) <> d$(t2 TO t19) 
AND CODE j$ > t32 

THEN GO TO VAL "8500" + CODE j% 

GO SUB VAL "9830": ' 

PRINT AT %17,%0; "<М>аіп menu"; 
TAB t25; "iE»dit file"; 
TAB t45; "Forint file"? 
"ENTER? to continue"; 
TAB t25; "<A>dd new file"; 
TAB t45; "<F>ormat "°? 
"<Roestart same search"; 
TAB t25; "<р>е1еіе file"; 
TAB t45; " "3 a$ 


PRINT AT t20, ti; "Search is for:": 
TAB VAL "36"; "or enter new SEARCH COMMAND"? x$ 
FOKE VAL "23658", t8 


INPUT "OPTION? "; y$ 


IF y$ = nu 
AND b < p 
THEN CLS: 
GO TO VAL "i150" 
IF y$ = "M" 


THEN GO TO ti 


IF USR VAL "63407" THEN 
(this line is supposed to be this way, it is not an 
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error) 


1080 


1090 


1100 


1200 


1400 


5003 


5004 


5005 


IF FEEK VAL "63165" + t256 % PEEK VAL "63166" 
<> PEEK VAL "23627" + t256 * PEEK VAL "23628" + VAL 
AND (y$ = "D" OR y$ = "E") 
THEN GO TO VAL "4000" 


IF y$ = "Б" 
THEN CLS: 
LET x$ = x$ 
GO TO t119 + (a X VAL "5121") 


IF y$ = "P" 
THEN GO TO VAL "7205" 


IF y$ = "F" 
THEN GO SUB VAL "9830": 
GO SUB VAL "6500": 
LET y$ = "": 
GO TO VAL "1050" 


IF a$ = "A" 
THEN LET x$ = "і": 
GO TO VAL "5000" 


LET x$ = y$: 
GO TO VAL "115" 


GO TO VAL "1050" 


LET p = p - USR VAL "62779": 
IF y$ = "р" 
THEN LET y$ = CHR$ (CODE "D" X a): 
GO TO VAL "4" 


GO TO VAL "5002" 


CLS: 

DIM e$(ti15, +64) 

LET m = tO: 

LET z = VAL "25658": 
LET i = tO: 

LET c = to 


GO SUB VAL "9830" 


PRINT AT %17,%0; "ARROWS move cursor",b$” 
"SHIFT О Delete character", 
“SHIFT 1 Alternate Insert/Over" 


PRINT AT ti9,tO; "SHIFT 2 = CAPS LOCK", 
"SHIFT 3 = LINE DELETE"? 
"SHIFT 4 = LINE ERASE", 
"SHIFT SYMBOL SHIFT: Line insert"? 
"“STOF> to close file": 
IF ys = "E" 
OR y$ = "A" 


nen 


THEN PRINT AT VAL "21", TO; "<5ТЕР> to return from 
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ADD/EDIT" 


5007 


5008 


5өбо 


5010 


5015 


SC16 


5050 


5050 


'FRINT AT ti6, t5; "UPPER CASE": 


IF PEEK z = tO 
THEN FRINT AT tió, t5; "lower case" 


PRINT AT +16, 50; "INSERT OFF": 
IF i = ti 
THEN PRINT АТ tió, VAL 50; “INSERT ON " 


PRINT INVERSE ti; АТ 1, с; SCREENS (1,c)3 INVERSE tO; 


AT t17, t32; "L= "s 
TAB 353 1 + 1; 
TAB 40; "C= " 


TAB 45; c+ti 
ON ERR GO TO 5008 


IF INKEY$ = "" 
THEN GO TO 5010 


LET y = INKEYS 


IF y$ = " STEP " 
OR y$ = " STOP " 
THEN ON ERR RESET: 
CLS: 
GO TO 6000 
J F y$ = na 


THEN GO TO 5010 
BEEP .001, 50 


PRINT AT 1, с; SCREENS (1, c): 
IF CODE y$ « t16 
AND CODE y$ > t3 
THEN GO SUB 5100 + CODE y$: 
BEEP .005, 25: 
GO TO 5006 


IF i 
THEN LET еФ (1+1) = e$(l+1 TO c) + " " + esil+ti, 
FRINT AT 1, tO; e$(l+ti) 


PRINT AT 1,c; y$: 
LET e$(l+ti, c+ti) = y 


~ # 


LET c = (c*t1) X (c«6 
LET 1 = 1 + (c=to): 
LET 1 = 1 Ж (1«t15) 
GO TO 5008 
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c+ti TO 63): 


5104 


5106 


5107 


5108 


5109 


5110 


5111 


5115 


5114 


5117 


5130 


5200 


FOR x = 1 TO 13: 
LET e$(x+t1) с e$(x+t2): 
PRINT AT x, tO; e$six+ti): 
NEXT x: 
LET e$(t15) = 
PRINT e$(ti5S): 
RETURN 


LET e$f(l+ti),c+ti TO) = ""; 
PRINT AT 1,%0; e$(l+ti): 
RETURN 


РОКЕ г, (PEEK z-tO) X tB: 
FRINT AT 1,035 e$i(l+ti,c+ti): 
RETURN 


LET i = NOT i: 
FAUSE t5: 
RETURN 


LET c = c-(c^t0O0): 
RETURN 


LET c = c*(c& VAL "65"): 
RETURN 


LET 1 = 1+(VAL "149: 
RETURN 


LET 1 = 1-(1>+0): 
RETURN 


LET e$(l+ti) = е%(1441, TO c) + e$(l+ti, c+t2 TO t63) + 


PRINT AT 1, tO; e$(1+t1): 
GO TO VAL "5108" 


LET с = tO: 

LET 1 = 1 + tis 

LET 1 = 1 - (1>VAL 814%): 
RETURN 


FOR x = ti5 TO 1 + t2 STEP -ti: 
LET e$(x) = е%(х-%1): 
PRINT AT x - ti, tO; eS (x): 


NEXT x: 

LET e$(l+ti) = "": 

PRINT AT 1, tO: e$(l+ti): 
RETURN 


GO TO VAL "5004" 
RETURN 

GO SUB VAL "7300": 
LET a = ti: 


INPUT "PRINT OUT Y/N) "3 y$: 
LET y = y$ = "ү" 
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5220 


5510 


5111 


5600 


5610 


5620 


5630 


INPUT "SEARCH COMMAND? "3 x$: 


IF x$ = "" 
OR LEN x$ > VAL "63" 
THEN BEEF VAL ".S", %10: 
GO TO VAL "5210" 


LET 2% = О": 
INPUT "LINE NUMBER (0-15) "3 z$: 
IF 2% = w" 


THEN BEEF VAL ".5", %10: 
GO TO VAL "5220" 


ON ERR GO TO VAL "S220"; 
IF VAL z$ « tO 
OR VAL z$ > t15 
THEN GO TO VAL "5220" 


ON ERR RESET: 
LET s = VAL z$: 


CLS 
IF s <> tO 
THEN LET p$ = b$: 
LET q$ = g$ 
GO TO t119 
CLS: 


POKE VAL "23658", t8: 
INPUT "HAS CURRENT FILE BEEN SAVED? (Y/N) "; y$: 
IF y$ <> "Y" 

THEN GO TO ti 


INPUT "FILE NAME? "3 f$: 
GO SUB VAL "S630": 

LOAD "a" + f$ CODE loc: 
LET p = VAL d$ (ti TO t20) 


GO TO VAL "S6ZO" 


РОКЕ VAL "23658", t8: 

CLS: 

INFUT "SAVE AT FILE #7 "; n$: 
GO SUB VAL "S630": 

LET a$(ti TO t20) = STR p 


SAVE "a" + n$ + "," + f$ CODE loc, VAL "21760": 
VERIFY "a" + f$ CODE 

LET d$ (ti TO t20) = "X#SEARCH IS COMPLETEX": 
RETURN 


LET loc = (PEEK VAL "23627" + t256 Ж PEEK VAL "23628") + VAL 
RETURN 
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5650 CLS: 
PRINT "MERGE: file #1": 
GG SUB VAL "5510": 
LET pi p - 120: 
LET h$ f$ 


"on 


5660 POKE VAL "24201", ti: 
SAVE "Di," + f$ CODE (loc + %20), рі: 
VERIFY "a" + 4% CODE: 
FOKE VAL "24201", to 


2670 FRINT "MERGE: file #2": 
GO SUB VAL "5510" 


5680 РОКЕ VAL "24201", ti: 
LOAD "3" + h$ CODE (loc + p + t1): 
FOKE VAL "24201", +0: 
LET p =p + pi: 
RETURN 


6000 LET d$(p) = CHR$ (42 - а X 42): 


6010 FOR x = ti TO +15 
LET e$(x) = es (x) 
IF USR 62628 THEN 
NEXT x 


6020 LET p = USR 62669 
6030 60 TO VAL "4" - (y$ = " STOF ") + (a X (y$ = " STEP ")) 


6500 FRINT AT +18, t2; "ENTER DESIRED FORMAT:"; b$? 
TAB t2; "Туре ALL or line numbers (1-9) separated by ""/"n""* 
TAB t2; "Use ""O"" to print blank lines"; b$ 


6510 LET c$ ="": 
LET n = to: 
INFUT "FORMAT? "3 a$: 
LET a$ = a$ + "/': 
IF a$ (ti) = "/" 
THEN GO TO VAL "6510" 


6515 IF a$ = "ALL/" 
THEN FOR x = ti TO t15 
LET c$ = CHR$ x: 


RETURN 


6520 LET d ti: 
FOR x ti TO LEN a$ 
IF a$(x) < "7s" 
OR a$(x) > "9" 
THEN GO TO VAL "6510" 
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7200 


7202 


IF x < LEN at 
THEN IF а(х TO x+t1) = "//" 
THEN GO TO VAL "6510 


IF a(x) = "/" 
THEN LET n = VAL a$(d TO x-t1): 
LET d = x + tls 
IF n < ti6 
THEN LET c$ = c + CHR$ n 
IF n > tiS 
THEN GO TO VAL "6510" 
NEXT x 
RETURN 
IF 5 = to 


THEN GO TO VAL "7202" 


IF b = р 
THEN GO TO VAL "7070" 


LET s$ = e$(s, TO tz2) 


IF s$ = p$ 
THEN GO TO VAL "7200" 


IF s$ > p$ i 
THEN IF s$ < q$ 
THEN LET q$ = 5% 


GO TO VAL "7230" 


IF p$ = g$ 
THEN GO TO VAL "1047" 
LET p$ = q$: 
LET q$ = g$: 
CLS 


LET x$ = x$: 
GO TO t119 


FOKE PEEK VAL "63165" + t256 * PEEK VAL "63166", tO 


IF y= to 
THEN GO TO VAL "1047" 


=L 13 3- 


7205 FOR x = ti TO LEN c$ 


7210 IF CODE с%(х) = to 
THEN LPRINT 
7220 IF CODE c$(x) 
AND e$(x) > b$ + b$ 
THEN LFRINT " " + "es (CODECS (х) ) 


7225 NEXT x 


7230 IF а 
AND b < p 

AND y$ <> "C" 

THEN CLS: 


GO ТО VAL "150" 


7240 GO TO VAL "1047" 


7300 LET v = PEEK VAL "62750": 


FOKE VAL "62750", VAL "215" - v: 
FOKE VAL "62736", VAL "215" - y; 
RETURN I 


7510 PRINT AT tO, %0;: 
LET e$(ti) = ""; 
IF USR VAL "62714" THEN 
(this line is supposed to be this way, it is not an error) 
7311 RETURN 
8548 GO TO ti 


8557 LET p = p - USR VAL "62779": 
GO TO VAL "6000" 


8567 GO TO ti 


8568 GO TO VAL "1060" 


9650 INPUT "ARE YOU SURE? (Y/N) "; x$ 
IF x$ = "y" 
OR x$ = "Y" 


THEN GO TO VAL "9995" 
9660 GO TO ti 


?800 INPUT "NEW FILENAME? "; f$: 
GO TO ti 


3830 PLOT tO, VAL "54"; 
DRAW t255, tO: 
PLOT tO, VAL "52": 
DRAW t255, to: 
FRINT АТ tió, VAL "22"; "xx OPTION MENU XX": 
RETURN 
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9996 


9997 


9998 


9999 


‘CLEAR VAL "62627": 
LOAD "@pro/64" CODE VAL "62628" 
CLEAR: 
DIM d$(VAL "22760")1 
LET tO = VAL "о" 
LET ti = VAL "i": 
LET t2'= VAL "2": 
LET t3 = VAL "3": 
LET t5 = VAL "5": 
LET t8 = VAL "8": 
LET +10 = VAL "10": 
LET «15 = VAL "iS": 
LET t16 = VAL "16": 
LET t17 = VAL "17": 
LET t19 = VAL "19": 
LET t20 = VAL "20": 
LET t25 = VAL "25": 
LET t32 = VAL "52": 
LET t45 = VAL "45": 
LET t64 = VAL "64": 
LET t119 = VAL "119": 
LET t255 = VAL "255": 
LET t256 = VAL "256" 
LET p = +20: 
GO SUB VAL "5620": 
LET a$ = "ALL": 
LET c$ = "n"; ' 
FOR x =ti ТО +15: 
LET c$ = c$ + CHR$ x: 
NEXT x: 
LET в -tO: 
LET b$ = " 
LET g$ = "zzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz" 
FOKE VAL "24201", to: 
РОКЕ VAL "65510", to: 
FOKE VAL "65523", VAL "185": 
FOKE VAL "65525", VAL "72": 
RANDOMIZE USR VAL "15623": 
INK tO: 
CLS 
LET y$ = "C": 
LET f$ = "FILENAME": 
GO TO ti 
CLEAR: 
SAVE "Ji,FRO/G4" LINE VAL "9994": 


SAVE "@2,pro/64" CODE VAL "62628, VAL "795": 


VERIFY "@PRO/64": 
VERIFY "apro/64" CODE 
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